home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / errmem.f < prev    next >
Encoding:
Text File  |  1989-07-18  |  1.8 KB  |  54 lines
  1.       subroutine errmem(inam,ierror,ipntr)
  2.       implicit double precision (a-h,o-z)
  3.       dimension ipntr(1)
  4. c spice version 2g.6  sccsid=status 3/15/83
  5.       common /status/ omega,time,delta,delold(7),ag(7),vt,xni,egfet,
  6.      1   xmu,sfactr,mode,modedc,icalc,initf,method,iord,maxord,noncon,
  7.      2   iterno,itemno,nosolv,modac,ipiv,ivmflg,ipostp,iscrch,iofile
  8. c spice version 2g.6  sccsid=memmgr 3/15/83
  9.       common /memmgr/ cpyknt,istack(1),lorg,icore,maxcor,maxuse,memavl,
  10.      1   ldval,numblk,loctab,ltab,ifwa,nwoff,ntab,maxmem,memerr,nwd4,
  11.      2   nwd8,nwd16
  12.       dimension errnam(7)
  13.       data errnam /6hclrmem,6hextmem,6hgetmem,6hptrmem,6hrelmem,
  14.      1   6hsetmem,6hsizmem/
  15. c
  16.       go to (200,410,420,300,510,530),ierror
  17. c
  18. c*** error(s) found ***
  19. c
  20. c.. nxtevn and/or nxtmem incompatible with nwd4, nwd8, and nwd16
  21. c
  22.   200 write(iofile,201)
  23.   201 format('0memory manager variables nwd4-8-16 incompatible with nxte
  24.      1vn and nxtmem')
  25.       go to 900
  26. c
  27. c...  memory needs exceed maximum available space
  28.   300 write (iofile,301) maxmem
  29.   301 format('0*error*:  memory requirement exceeds machine capacity',
  30.      1/'0 memory needs exceed',i6)
  31.       go to 900
  32. c...    *isize* < 0
  33.   410 write(iofile,411)
  34.   411 format('0size parameter negative')
  35.       go to 900
  36. c...  getmem:  attempt to reallocate existing block
  37.   420 write(iofile,421)
  38.   421 format('0attempt to reallocate existing table')
  39.       go to 900
  40. c...    *ipntr* invalid
  41.   510 write(iofile,511)
  42.   511 format('0table pointer invalid')
  43.       go to 900
  44. c...  relmem:  *isize* larger than indicated block
  45.   530 write(iofile,531)
  46.   531 format('0attempt to release more than total table')
  47. c...  issue error message
  48.   900 write (iofile,901) errnam(inam)
  49.   901 format('0*abort*:  internal memory manager error at entry ',
  50.      1  a7)
  51.   950 call dmpmem(ipntr(1))
  52.  1000 stop
  53.       end
  54.